home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / QDOffscreen.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  5.6 KB  |  172 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        QDOffscreen.mod
  3.  
  4.      Contains:    QuickDraw Offscreen GWorld Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE QDOffscreen;
  23.  
  24. IMPORT SYSTEM, Types, Quickdraw;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     pixPurgeBit*                    = 0;
  32.     noNewDeviceBit*                = 1;
  33.     useTempMemBit*                = 2;
  34.     keepLocalBit*                = 3;
  35.     pixelsPurgeableBit*            = 6;
  36.     pixelsLockedBit*                = 7;
  37.     mapPixBit*                    = 16;
  38.     newDepthBit*                    = 17;
  39.     alignPixBit*                    = 18;
  40.     newRowBytesBit*                = 19;
  41.     reallocPixBit*                = 20;
  42.     clipPixBit*                    = 28;
  43.     stretchPixBit*                = 29;
  44.     ditherPixBit*                = 30;
  45.     gwFlagErrBit*                = 31;
  46.  
  47.     pixPurge*                    = ASH(1,pixPurgeBit);
  48.     noNewDevice*                    = ASH(1,noNewDeviceBit);
  49.     useTempMem*                    = ASH(1,useTempMemBit);
  50.     keepLocal*                    = ASH(1,keepLocalBit);
  51.     pixelsPurgeable*                = ASH(1,pixelsPurgeableBit);
  52.     pixelsLocked*                = ASH(1,pixelsLockedBit);
  53.     mapPix*                        = ASH(1,mapPixBit);
  54.     newDepth*                    = ASH(1,newDepthBit);
  55.     alignPix*                    = ASH(1,alignPixBit);
  56.     newRowBytes*                    = ASH(1,newRowBytesBit);
  57.     reallocPix*                    = ASH(1,reallocPixBit);
  58.     clipPix*                        = ASH(1,clipPixBit);
  59.     stretchPix*                    = ASH(1,stretchPixBit);
  60.     ditherPix*                    = ASH(1,ditherPixBit);
  61.     gwFlagErr*                    = ASH(1,gwFlagErrBit);
  62.  
  63.     
  64. TYPE
  65.     GWorldFlags* = LONGINT;
  66.  
  67. (* Type definition of a GWorldPtr *)
  68.     GWorldPtr* = Quickdraw.CGrafPtr;
  69.  
  70.  
  71. PROCEDURE NewGWorld*(VAR offscreenGWorld: GWorldPtr; PixelDepth: INTEGER; (*CONST*)VAR boundsRect: Types.Rect; cTable: Quickdraw.CTabHandle; aGDevice: Quickdraw.GDHandle; flags: GWorldFlags): Quickdraw.QDErr;
  72.     (*$IF NOT GENERATINGCFM*)
  73.     INLINE PASCAL $203C, $0016, $0000, $AB1D;
  74.     (*$END*)
  75. PROCEDURE LockPixels*(pm: Quickdraw.PixMapHandle): BOOLEAN;
  76.     (*$IF NOT GENERATINGCFM*)
  77.     INLINE PASCAL $203C, $0004, $0001, $AB1D;
  78.     (*$END*)
  79. PROCEDURE UnlockPixels*(pm: Quickdraw.PixMapHandle);
  80.     (*$IF NOT GENERATINGCFM*)
  81.     INLINE PASCAL $203C, $0004, $0002, $AB1D;
  82.     (*$END*)
  83. PROCEDURE UpdateGWorld*(VAR offscreenGWorld: GWorldPtr; pixelDepth: INTEGER; (*CONST*)VAR boundsRect: Types.Rect; cTable: Quickdraw.CTabHandle; aGDevice: Quickdraw.GDHandle; flags: GWorldFlags): GWorldFlags;
  84.     (*$IF NOT GENERATINGCFM*)
  85.     INLINE PASCAL $203C, $0016, $0003, $AB1D;
  86.     (*$END*)
  87. PROCEDURE DisposeGWorld*(offscreenGWorld: GWorldPtr);
  88.     (*$IF NOT GENERATINGCFM*)
  89.     INLINE PASCAL $203C, $0004, $0004, $AB1D;
  90.     (*$END*)
  91. PROCEDURE GetGWorld*(VAR port: Quickdraw.CGrafPtr; VAR gdh: Quickdraw.GDHandle);
  92.     (*$IF NOT GENERATINGCFM*)
  93.     INLINE PASCAL $203C, $0008, $0005, $AB1D;
  94.     (*$END*)
  95. PROCEDURE SetGWorld*(port: Quickdraw.CGrafPtr; gdh: Quickdraw.GDHandle);
  96.     (*$IF NOT GENERATINGCFM*)
  97.     INLINE PASCAL $203C, $0008, $0006, $AB1D;
  98.     (*$END*)
  99. PROCEDURE CTabChanged*(ctab: Quickdraw.CTabHandle);
  100.     (*$IF NOT GENERATINGCFM*)
  101.     INLINE PASCAL $203C, $0004, $0007, $AB1D;
  102.     (*$END*)
  103. PROCEDURE PixPatChanged*(ppat: Quickdraw.PixPatHandle);
  104.     (*$IF NOT GENERATINGCFM*)
  105.     INLINE PASCAL $203C, $0004, $0008, $AB1D;
  106.     (*$END*)
  107. PROCEDURE PortChanged*(port: Quickdraw.GrafPtr);
  108.     (*$IF NOT GENERATINGCFM*)
  109.     INLINE PASCAL $203C, $0004, $0009, $AB1D;
  110.     (*$END*)
  111. PROCEDURE GDeviceChanged*(gdh: Quickdraw.GDHandle);
  112.     (*$IF NOT GENERATINGCFM*)
  113.     INLINE PASCAL $203C, $0004, $000A, $AB1D;
  114.     (*$END*)
  115. PROCEDURE AllowPurgePixels*(pm: Quickdraw.PixMapHandle);
  116.     (*$IF NOT GENERATINGCFM*)
  117.     INLINE PASCAL $203C, $0004, $000B, $AB1D;
  118.     (*$END*)
  119. PROCEDURE NoPurgePixels*(pm: Quickdraw.PixMapHandle);
  120.     (*$IF NOT GENERATINGCFM*)
  121.     INLINE PASCAL $203C, $0004, $000C, $AB1D;
  122.     (*$END*)
  123. PROCEDURE GetPixelsState*(pm: Quickdraw.PixMapHandle): GWorldFlags;
  124.     (*$IF NOT GENERATINGCFM*)
  125.     INLINE PASCAL $203C, $0004, $000D, $AB1D;
  126.     (*$END*)
  127. PROCEDURE SetPixelsState*(pm: Quickdraw.PixMapHandle; state: GWorldFlags);
  128.     (*$IF NOT GENERATINGCFM*)
  129.     INLINE PASCAL $203C, $0008, $000E, $AB1D;
  130.     (*$END*)
  131. PROCEDURE GetPixBaseAddr*(pm: Quickdraw.PixMapHandle): Types.Ptr;
  132.     (*$IF NOT GENERATINGCFM*)
  133.     INLINE PASCAL $203C, $0004, $000F, $AB1D;
  134.     (*$END*)
  135. PROCEDURE NewScreenBuffer*((*CONST*)VAR globalRect: Types.Rect; purgeable: BOOLEAN; VAR gdh: Quickdraw.GDHandle; VAR offscreenPixMap: Quickdraw.PixMapHandle): Quickdraw.QDErr;
  136.     (*$IF NOT GENERATINGCFM*)
  137.     INLINE PASCAL $203C, $000E, $0010, $AB1D;
  138.     (*$END*)
  139. PROCEDURE DisposeScreenBuffer*(offscreenPixMap: Quickdraw.PixMapHandle);
  140.     (*$IF NOT GENERATINGCFM*)
  141.     INLINE PASCAL $203C, $0004, $0011, $AB1D;
  142.     (*$END*)
  143. PROCEDURE GetGWorldDevice*(offscreenGWorld: GWorldPtr): Quickdraw.GDHandle;
  144.     (*$IF NOT GENERATINGCFM*)
  145.     INLINE PASCAL $203C, $0004, $0012, $AB1D;
  146.     (*$END*)
  147. PROCEDURE QDDone*(port: Quickdraw.GrafPtr): BOOLEAN;
  148.     (*$IF NOT GENERATINGCFM*)
  149.     INLINE PASCAL $203C, $0004, $0013, $AB1D;
  150.     (*$END*)
  151. PROCEDURE OffscreenVersion*(): LONGINT;
  152.     (*$IF NOT GENERATINGCFM*)
  153.     INLINE PASCAL $7014, $AB1D;
  154.     (*$END*)
  155. PROCEDURE NewTempScreenBuffer*((*CONST*)VAR globalRect: Types.Rect; purgeable: BOOLEAN; VAR gdh: Quickdraw.GDHandle; VAR offscreenPixMap: Quickdraw.PixMapHandle): Quickdraw.QDErr;
  156.     (*$IF NOT GENERATINGCFM*)
  157.     INLINE PASCAL $203C, $000E, $0015, $AB1D;
  158.     (*$END*)
  159. PROCEDURE PixMap32Bit*(pmHandle: Quickdraw.PixMapHandle): BOOLEAN;
  160.     (*$IF NOT GENERATINGCFM*)
  161.     INLINE PASCAL $203C, $0004, $0016, $AB1D;
  162.     (*$END*)
  163. PROCEDURE GetGWorldPixMap*(offscreenGWorld: GWorldPtr): Quickdraw.PixMapHandle;
  164.     (*$IF NOT GENERATINGCFM*)
  165.     INLINE PASCAL $203C, $0004, $0017, $AB1D;
  166.     (*$END*)
  167.  
  168. (* $ALIGN RESET*)
  169. (* $POP*)
  170.  
  171.  END QDOffscreen.
  172.